home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
gfx
/
fract
/
fu1_61.lha
/
Formulas
/
Newton1.Form
< prev
next >
Wrap
Text File
|
1994-04-13
|
266b
|
32 lines
Newton1
{
{
x1=-2.0
x2= 2.0
y1=-1.6
y2= 1.6
par1.r=4.0
par1.i=0.0
bailout=0.000001
}
{
t=par1-[1.0,0.0]
z=pixel
}
{
zu=z^t
zo=zu*z
zo=zo-[1.0,0.0]
zu=zu*par1
x=zo/zu
z=z-x
w=abs(zo)
}
{
w<bailout
}
{
par1 : exponent
}
}